* FILE NAME : JAPINS.PRG
*

f99='JAPANINS'
STORE 0 TO CNT,CR,VADD
SELE 9
SET EXCLU OFF
use &dr&f99
GO TOP
do while .NOT. EOF()
   CNT=CNT+1
   skip
ENDDO
IF CNT=0
   RETURN
ENDIF
DECLARE INNAM[CNT]
DECLARE INTYP[CNT]
DECLARE FLD[CNT]
SELE 9
GO TOP
do while .NOT. EOF()
   CR=CR+1
   INNAM[CR]=INS_NAME
*   INTYP[CR]=INS_TYPE
*   FLD[CR]=INS_TYPE+'  '+INS_NAME
   FLD[CR]=' '+INS_NAME
   SKIP
ENDDO
SET COLO TO BG+/B,W+/N
LY=SAVESCREEN(0,0,24,79)
SET COLOR TO BG+/B
@ 10,3 clea to 16,76
set colo to w+/G,gr+/r
@ 10,3 clea to 16,76
@ 10,3 to 16,76 double
pilih=achoice(11,4,15,75,FLD)
IF LASTKEY()=13
   INSNAM=INNAM[PILIH]
ELSE
   IF LASTKEY()=27
      DO INPJAPIN
   ENDIF
ENDIF
RESTSCREEN(0,0,24,79,LY)
SET COLO TO BG+/B,W+/N
